Public Class CMiscCd
    Dim strType As String
    Dim strId As String
    Dim strDesc As String
    Dim _intMiscID As Integer
    Public Property MiscID() As Integer
        Get
            Return _intMiscID
        End Get
        Set(ByVal value As Integer)
            _intMiscID = value
        End Set
    End Property
    Public Property Code_Type() As String
        Get
            Return strType
        End Get
        Set(ByVal value As String)
            strType = CStr(value)
        End Set
    End Property
    Public Property Code_ID() As String
        Get
            Return strId
        End Get
        Set(ByVal value As String)
            strId = CStr(value)
        End Set
    End Property
    Public Property Description() As String
        Get
            Return strDesc
        End Get
        Set(ByVal value As String)
            strDesc = CStr(value)
        End Set
    End Property
    Public Sub New()

    End Sub
End Class
